perm filename BAZ.LSP[TIM,LSP] blob sn#849387 filedate 1987-11-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun atoms (l)
C00003 ENDMK
CāŠ—;
(defun atoms (l)
 (cond ((null l) 0)
       ((atom l) 1)
       (t (plus (atoms (car l)) (atoms (cdr l))))))

(defun patoms (l)
 (cond ((null l))
       ((atom l) (print l))
       (t (patoms (car l)) (patoms (cdr l)))))